home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / fade-outline.scm.z / fade-outline.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  5.2 KB  |  153 lines
  1. ; fade-outline.scm
  2. ; version 1.1
  3. ;
  4. ; This GIMP script_fu operates on a single Layer
  5. ; It makes it's outline boarder transparent by
  6. ; adding a layer mask that is black (transparent) at the outline
  7. ; and blends into white (opaque) at the inner regions of the
  8. ; shape. The user can specify the thickness of the fading border
  9. ; that is used to blend from transparent to opaque.
  10. ;
  11. ; The outline is taken from the current selection
  12. ; or from the layers alpha channel if no selection is active.
  13. ;
  14. ; Optional you may keep the generated layermask or apply
  15. ; it to the layer 
  16.  
  17. ;
  18. ; The GIMP -- an image manipulation program
  19. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  20. ; 
  21. ; This program is free software; you can redistribute it and/or modify
  22. ; it under the terms of the GNU General Public License as published by
  23. ; the Free Software Foundation; either version 2 of the License, or
  24. ; (at your option) any later version.
  25. ; 
  26. ; This program is distributed in the hope that it will be useful,
  27. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  28. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  29. ; GNU General Public License for more details.
  30. ; 
  31. ; You should have received a copy of the GNU General Public License
  32. ; along with this program; if not, write to the Free Software
  33. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  34.  
  35.  
  36. ; Define the main function:
  37.  
  38. (define (script-fu-fade-outline   inImage
  39.                                   inLayer 
  40.                                   inBorderSize
  41.                                   inApplyMask
  42.                                   inClearUnselected
  43.         )
  44.  
  45.         (let* ((l-idx 0)
  46.                (l-step (/ 25500 (+ inBorderSize 1)))
  47.                (l-gray l-step)
  48.                (l-old-bg-color (car (gimp-palette-get-background)))
  49.                (l-has-selection TRUE)            
  50.  
  51.               )
  52.  
  53.         ; do nothing if the layer is a layer mask
  54.         (if (= (car (gimp-drawable-layer-mask inLayer)) 0)
  55.             (begin
  56.  
  57.               (gimp-undo-push-group-start inImage)
  58.               
  59.               ; if the layer has no alpha add alpha channel
  60.               (if (= (car (gimp-drawable-has-alpha inLayer)) FALSE)
  61.                   (begin
  62.                      (gimp-layer-add-alpha inLayer)
  63.                   )
  64.                )
  65.  
  66.               ; if the layer is the floating selection convert to normal layer
  67.               ; because floating selection cant have a layer mask
  68.               (if (> (car (gimp-layer-is-floating-sel inLayer)) 0)
  69.                   (begin
  70.                      (gimp-floating-sel-to-layer inLayer)
  71.                   )
  72.                )
  73.  
  74.               ; if there is no selection we use the layers alpha channel
  75.               (if (= (car (gimp-selection-is-empty inImage)) TRUE)
  76.                   (begin
  77.                      (set! l-has-selection FALSE)
  78.                      (gimp-selection-layer-alpha inImage inLayer)
  79.                   )
  80.                )
  81.  
  82.                ; apply the existing mask before creating a new one
  83.               (gimp-image-remove-layer-mask inImage inLayer 0)
  84.  
  85.               (if (= inClearUnselected  TRUE)
  86.                   (begin
  87.                     (set! l-mask (car (gimp-layer-create-mask inLayer BLACK-MASK)))
  88.                    )
  89.                   (begin
  90.                     (set! l-mask (car (gimp-layer-create-mask inLayer WHITE-MASK)))
  91.                   )
  92.                )
  93.  
  94.               (gimp-image-add-layer-mask inImage inLayer l-mask)
  95.                                            
  96.               (while (<= l-idx inBorderSize)
  97.                  (if (= l-idx inBorderSize)
  98.                      (begin
  99.                         (set! l-gray 25500)
  100.                       )
  101.                   )
  102.                   (gimp-palette-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100)))
  103.                   (gimp-edit-fill inImage l-mask)
  104.                   (set! l-idx (+ l-idx 1))
  105.                   (set! l-gray (+ l-gray l-step))
  106.                   (gimp-selection-shrink inImage 1)
  107.                   ; check if selection has shrinked to none
  108.                   (if (= (car (gimp-selection-is-empty inImage)) TRUE)
  109.                       (begin
  110.                          (set! l-idx (+ inBorderSize 100))     ; break the while loop
  111.                       )
  112.                    )
  113.  
  114.               )
  115.  
  116.               (if (=  inApplyMask TRUE)
  117.                   (begin
  118.                     (gimp-image-remove-layer-mask inImage inLayer 0)
  119.                   )
  120.                )
  121.  
  122.               (if (= l-has-selection FALSE)
  123.                   (gimp-selection-none inImage)
  124.               )
  125.  
  126.              (gimp-palette-set-background l-old-bg-color)
  127.              (gimp-undo-push-group-end inImage)
  128.              (gimp-displays-flush)
  129.              )
  130.         ))  
  131. )
  132.  
  133.  
  134.  
  135.  
  136. ; Register the function with the GIMP:
  137. ; ------------------------------------
  138.  
  139. (script-fu-register
  140.     "script-fu-fade-outline"
  141.     "<Image>/Script-Fu/Selection/Fade Outline"
  142.     "Blend the Layers outline border to transparent"
  143.     "Wolfgang Hofer <wolfgang.hofer@siemens.at>"
  144.     "Wolfgang Hofer"
  145.     "19 May 1998"
  146.     "RGB RGBA GRAY GRAYA"
  147.     SF-IMAGE "The Image" 0
  148.     SF-DRAWABLE "The Layer" 0
  149.     SF-VALUE "Border Size:" "10"
  150.     SF-TOGGLE "Apply generated Layermask?" FALSE
  151.     SF-TOGGLE "Clear unselected Maskarea?" TRUE
  152. )
  153.